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IDENT = ‘V *, LISTCNOOBJECT)) = 
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VeRO RAA ARERR REE E EAE AEEREAAAAAAEEEERARAAAREERAAAEEE 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 
ie DIGITAL EQUIPMENT CORPORATION, ” MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESER 


ie rs fo er fs PANT SHED UNDER A LICENSE AND MAY BE USED AND corite 
ONLY IN ANCE HE T CENS THE 
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® 
* 
: 0 R * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF * 
'® TRANSFERRED. * 
: a 
'e phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORAT ION. * 
4 y 
'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
& 
' 
SRR REAR AA EAA AAEAAAAAAAAAAEEAAAEEEEAEAAAAAEA AREER AAAAAAAEAEEEAREREAAAEEEE 
' 
'e¢ 


FACILITY: Network Control Program (NCP) 
i ABSTRACT: 


FWN ("OC OONOAUE WN“ OOONOAUSE 


WANA 


States and data for the parsing of NCP circuit parameters 
i ENVIRONMENT: VAX/VMS Operating System 
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004 AUTHOR: Tim Halvorsen, June 1981 
1 i MODIFIED BY: 
BOe§ : 
: v03-013 RPGOO12 Bob Gro 06-0c t-1982 
é : Change Transport type PHASE II to ROUTING III. 
$ i v03-012 RPGOOT 2 Bob Gro 21-Sep-1982 
Alter prompting if clreult type is X25. 
3 : v03-011 RPGOO11 Bob Grosso 03-Sep-1982 
39 Add new transport types. 
26 : v03-010 RPGO010 Bob Gro 28-Jun-1982 
37 Change MAX BLOCK to MAX SDATA. 
55 : v009 TMHOO009 Tim Halvorsen 10-May-1982 
2$ : Add circuit MRT and RPR parameters tor NI support. 
005 : Add OWNER parameter. 


NCPSTACIR 
Vv 


Circuit 


vw 
Ooo 


func MPwn— 
kk kk kk a a dt 2 2 


essssessassese 
NOUSWN —OOONOUM 


So 
So 
@o00 
sooo 


7 
Parameter Parse States and Data 15-se-t 74 $3 28:32 


v008 


v007 


v006 


v005 


v004 


v003 


vo002 


v001 


AX-11 BLi 


ss-32 V4.0-74 
NCP. SRCINCPSTACI 


p-1 cle -B32; 


TMHOO08 Tim Halvorsen 08-Mar-1982 
Only prompt for “‘essential”’ and ‘important’ parameters. 


TMHO007 m Halvorsen 20-Jan-1982 
Add TRANSPORT TYPE" parameter. 
Disable prompting of X25 parameters. 


MHO006 Tim Halvorsen 08-Jan-1982 
eet TMHOOOS, ches restoring RETRANSMIT TI 
back to a Line parameter, which is what NM V 
finally came up with. 


MER 
3.0 


TMHOO0S m Halvorsen 15-Aug-1981 
Add CIRCUIT VERIFICATION parameter. 


TMHO004 Tim Halvorsen 11-Aug-1981 

Remove fix fo TYPE keywords in TMHOOOZ, since 

only the X25 value may be written using that 
parameter - all the rest of the values are read-only. 


TMHOO03 Tim Halvorsen 05-Aug-1981 
Make RETRANSMIT TIMER a circuit parenster rather 
than a Line parameter. 


TMHO002 Tim Halvorsen 30-Jul-1981 
Fix keywords accepted for TYPE parameter. 
Fix parameter code used for TRIBUTARY. 


MHO001 Tim Halvorsen 07-Jul-1981 
had MAXIMUM TRANSMITS 
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INCLUDE FILES: 


wars ACI 


LIBR = *L 
LIBRA 
LIBRARY +§ 


1B$:NMALIBRY’; 
LIB$:NCPLIBRY': 
YS$LIBRARY:T TPAMAC': 


! 
; EXTERNAL REFERENCES: 


ab eS a dt wt 


ACT_DFN ! Action routine externals 
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j 14-Sep-1984 2:48:17 NCP. SRCINCPSTACIR.B32; (4) 
; ‘ } ZSBTTL ‘Prompt strings’ 
: 1! 
: : : } Build prompt strings 
; 0 1 
3 1 1 BIND | 
$ § Pp 1 PROMPT _STRINGS 
; : } (CIR, 
s 5 P 1 STA, ‘Circuit state (ON, OFF, SERVICE): ‘, 
: P 1! SER. ‘Service mode (ENABLED DISABLED): ', 
; Pp 1 i CIM, ‘Counter timer (1-65535 seco 3): - 
3 8 P 1 COS, ‘Cost of circuit (1-125): ‘, 
: 9 P 1! HET, ‘Hello timer (1-65535 seconds): ', 
: 240 P 1! LIT, ‘Listen timer 1- 5 seconds): ', 
3 41 e 1! BLK, ‘Blocking (ENABLED, abeb 134-1 3 of 
: eg P 1 MRC, ‘Maximum recalls (0-255): °, 
; 246 P 1 RCT, ‘Recall timer (1-65535 seconds): ', 
: 44 e 1 NUM, ‘Number (1- erp itees ad 
: 45 L 1 POL, ZSTRING(*Polling state (AUTOMATIC, ACTIVE,', CRLF, 
; 266 P 1 ' IVE, DYING, DEAD): °S, 
> 267 P 1 OWN, ‘Owner (EXECUTOR NODE): ', 
: 248 P 1! LIN, ‘Line ID (1-16 characters): ‘, 
8 49 P 1 USE, ‘Usage (INCOMING, OUTGOING, PERMANENT): '‘, 
; 250 P 1 TYP, ‘Type X25 or <CR>): ', 
3; 251 Fr 1! VER, ‘Verification (ENABLED, DISABLED): ‘, 
$ 26 P 1! XPT, opr snepert type (PHASE II, ROUTING II1): ‘, 
s 23 P 1 DTE, ‘X.25 DTE address (1-16 digits): ... 
: 254 P 1 CHN, 'X.25 channel number (0- 933): ... 
s 255 p 1 MBL, ‘°X.25 maximum data size (1-65535): ,!" 
: 256 5 1 MWI, *X.25 maximum window size (1-255 blo ks): ‘ 
; 257 P 1 TRI, ‘Tr putery address (0-255): ', 
; 258 r 1! BBT, ‘Babble timer (1-65535 milliseconds): ', 
3 59 P 7% TRT, ‘Transmit timer (0-65555 milliseconds): ', 
: 260 2 1! MRB, ‘Maximum buffers (1- UNLIMITED): ‘, 
; 261 B 1! MTR, ‘Maximum transmits (1-255 messages): 7. 
3 og P ;! ACB, ‘Active base priority 0-255): ‘', 
: 26 P 1! ACI, ‘Active priority increment (0-255): ', 
: 264 b 1! IAB, ‘Inactive base priority (0-255): °, 
: 265 P 1! IAI, ‘Inactive error sty increment (0-255): ', 
; 266 P 1! IAT, ‘Inactive threshold (0-255): °, 
: 267 Pp 1! DYB, ‘Dying base priority (0-255): ', 
: 268 P 1! DYI, ‘Dying erior ity increment (Q- 22): of 
; 269 P 1! DYT, ‘Dying threshold (0-255): °, 
3 ” . : : DTH, “Dead threshold (0-255): °, 
: 272 1 ); 
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tS 0 1 ZSBTTL ‘State table for circuit parameters’ 
g SINIT_STATE(NCPSG_STTBL_CIR, NCPSG_KYTBL_CIR); 
7 
9 } SET/DEFINE CIRCUIT parameters 
P SSTATE (ST_CIR, 
P ((SE_ALL), ST_CIR_DOIT) ' ALL parameter 
P (TPAS_EOS, , ACTSPMT_ONS, i Prompt if no keywords 
P CTPAS LAMBDA, ST_CIRZPRC, ACTSPMT_OFF) | Process keywords 


! Find out whether circuit type is x25 


Co NAME WN © ODNA UE AR @ OOONOAUE 


Lolo jloloja) oo (C9. C9 CO OD 09 C9 CD CD 


¢ 
S 

3 1 3 
8 1 ; 
3 1 3 
5 1 F 
3 1 3 
: 1 1 : 
Py ¢ 1 ° 
; 1 ; 
; 1 : 
; Be 1 : 
; 1 : 
; 28 1 ; 
; 288 1 : 
Py 34 1 ° 
; 8 1 ; 
: 33 P i SSTATE (ST_CIR_PMT_TYP 
: 3 6 1 (TPAS_LAMBDA, , ACTSPRMPT, , , PMT$SG_CIR_TYP)); ; 
> 29% PO 1 SSTATE ( : 
: 295 P 0 1 (fPAS_SYMBOL, ST_CIR_DOIT, ACTSPMTDONEQ), : 
; 99% P 0 1 ((ST_CIR_TYPS, ST_CIR_PMT_TYP_X25), ; 
: 29 PO 1 (TPAS_EOS, ST_CIR-PMT-TYP-CR)- F 
; 98 Pp 9 (TPAS_LAMEDA, ST_CIR_PMT_TYP, ACTSSIGNAL, , , NCPS$_INVVAL) : 
; 300 1 : 
3 01 1! 3 
3 4 : Prompting when TYP was <CR> : 
: 304 P 1 $STATE (ST_CIR_PMT_TYP_CR, : 
: 305 6 (TPAS_LAMBDA)) ;~ : 
: 0 Pp 6 1 PROMPT_STATES : 
; 308 Pp 1 (CIR, ; 
3 09 P 1 3 
: 310 P ; 1 STA, COS, TRI, : 
> 311 P 0307 1! BLK, LIN : 
3 1g 308 1 s 
3 1 309 1 3 
: 314 P 310 1 $STATE ( : 
: 315 P0311 1 (fPAS_LAMBDA, ST_CIR_DOIT) : 
: 16 0 1 1 ); : 
: 1 1 1 ‘ 
: 318 14 $1! ; 
3 % 8 tg : Prompting when TYP was X25 : 
: 1 P 0317 1 $STATE (ST_CIR_PMT_TYP_x25, : 
: ¢ | (TPAS_LAMBDA) ) ;~ : 
: 324 P 0320 1 PROMPT_STATES : 
; 5 P 1 (CIR, : 
; ; P § USE, OWN POL, DTE, CHN, NUM, MRC, RCT, MBL, MwI, ; 
3 g 5 § 3 
: P 0326 1 $STATE (ST_CIR_DOIT, 3 
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: 33) P R382 } STPAS FOS. TPAS_EXIT, ACTSVRB_UTILITY, , , SDB$G_CIR) 
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"Dispatch on parameter keywords’ 
Dispatch on circuit parameter keywords 


(ST_CIR_PRC, 


DISPATCH STATES 
(CIR, 


ACT, ACTIVES 
BLK, "BLOCKING', 
"CHANNEL ' 


D 
D 

HET, ‘HELLO’, 
IAC, ‘INACTIVE’, 


T 
XPT. "TRANSPORT’, 
TRI. TRIBUTARY , 


YP 
USE, "USAGE® 
VER, "VERIFICATION', 


, 
(TPAS_EOS, ST_CIR_DOIT) 
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P 0429 DYB, ‘BASE‘ 

P 04 0 DY], ‘INCREMENT’, 

id DYT, ‘THRESHOLD’, 

P 0c8s 
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Dispatch on parameter keywords 14-Sep-1984 12:48:17 NCP. SRCINCPSTACIR.B32; (8) V 
3; 461 4 1 : 
; «44 435 1! : 
; 44 4 § 1: These states take care of noise words ‘ 
; tee r : and call the subexpressions to do the work ; 
i 446 4 § 1 : 
3; (446 P 0440 1 PROCESS_STATES : 
: 448 P0441 1 (CIR, 
> 449 PB Oooe 1 ; 
: 450 P0463 1 STA, . : 
; 451 P0444 1 SER. ¢ : 
: 128 P 0445 1 CTM, "TIMER', ; 
; 4 P0446 1 COS, , ; 
: 654 P 0447 1 MRT, ¢ ! From MAX : 
; 455 P 0448 1 RPR, ‘PRIORITY’, : 
; 456 P 0449 1 HET, ‘TIMER’, ; 
; 457 P 0450 1 LIT, ‘TIMER’, : 
; 458 P 0451 1 BLK, , : 
; 460 P0453 1 RCT, "TIMER', ; 
; re) P 0455 1 POL, ‘STATE’, : 
: 46 P Bees 1 OWN, . ; 
> 464 P 0457 1 LIN, , : 
: 465 P Be 38 1 USE, , ' 
; 466 P 0459 1 TYP, , ‘ 
: 467 P 0460 1 OTE, , ° 
; 468 P 0461 1 CHN, , ‘ 
: 469 P 0462 1 MBL, . ! From MAX : 
; 470 P 0465 1 MWI, , ! From MAX : 
; 47 P 0465 1 BBT, ‘TIMER’, : 
; 47 P 0466 1 TRT, ‘TIMER’, ‘ 
; 474 P 0467 1 MRB, , ! From MAX : 
: 476 P 0469 1 ACB, , : From ACT : 
3; 477 P 0470 1 ACI, . ' From ACT : 
: 478 P0471 1 IAB, , ! From IAC : 
3; 479 P oh 4 1 IAl, . ! From IAC ’ 
; 480 P 04735 1 IAT, , ' From IAC : 
; 481 P0474 1 DYB, , : From DYE ‘ 
3; 482 P0475 1 DYI, . ! From DYE ; 
> 483 P0476 1 DYT, | i From DYE : 
: $86 P 047 1 DTH, ‘THRESHOLD’, : 
; 486 P 0479 1 Wig “Te. . 
; 487 B ot 1 : 
; 488 481 1 ) : 
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; ; § 1 ; 
3 ¢ ! : Circuit state ; 
; $35 1 ; 
: 4 $ } SSTATE (ST_CIR_STA, : 
3 P $ 1 KEYWORD_STATE : 
3 9 P 0 1 R F 
; 540 P0531 1 STAOFF, ‘OFF’, ; 
: 41 e § 1 STAON ‘ON’, $ 
: 54 P 1 STASVC, "SERVICE', : 
3 4 1 »); § 
> 544 535 1 ; 
; 545 5 $ 1! 3 
; ré 5 1 | Circuit service mode : 
; 54 538 1! ; 
; 548 539 1 ; 
3 49 P 0540 1 SSTATE (ST_CIR_SER, é 
; 550 P 0541 +1 ; 
; 551 P 0348 1 KEYWORD_STATE ; 
: 26 P0545 1 3 
; 5 P 0544 #1 SERENA, *ENABLED® . ; 
: 54 P 0545 1 SERDIS, ‘DISABLED’, 2 
: 555 228 1 »); 3 
3 28 547 1 F 
3 39 548 1! 3 
; 558 B2e8 1! Circuit blocking mode : 
s 339 550 1! 3 
3 260 Bees 1 3 
; 561 p 338 1 $STATE (ST_CIR_BLK, ; 
s 36 P0553 (1 s 
; 56 P0554 1 KEYWORD_STATE ; 
3 208 P0555 1 (CIR, ; 
; $65 P0556 1 BLKENA, ‘ENABLED', ; 
; 566 P 055 1 BLKDIS, ‘DISABLED’, : 
3 267 0558 1 »); 3 
; 568 0559 1 3 
3 2 9 geet 2. 3 
3 0 56) 1! Circuit polling state ‘ 
3; 571 6266 1! : 
s $7. 563 1 $ 
3 7 P 0564 1 SSTATE (ST_CIR_POL, 2 
: 574 P 0565 1 F 
3 75 e 208 1 KEYWORD_STATE 3 
i 376 P 0567 1 (CIR, 
$ 7 P 0568 1 POLAUT, ‘AUTOMATIC’, e 
3 78 Pe 23? 1 POLACT, ‘ACTIVE’ a 
: 579 P0570 1 NA, 'INACTIVE', : 
3 $6 Pp 0571 1 POLDIE, ‘DYING’, F 
3 1 Pp 27¢ 1 POLDED, ‘DEAD’, : 
: 388 a ; 
3 Sema. : 
3 5 378 ! : Circuit usage 
s 3 38 1 : 
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Maximum circuit receive buffers 


' TPAS_EXIT, ACTSSAVPRM,,, PBK$G_CIR_MRBUNL), 
MAL, TPAS_EXIf, ACTSSAVPRM.., PBKSG_CIR_MRB) 


Circuit owner (only EXECUTOR value allowed) 


(ST_CIR_OWN, 
KEYWORD_STATE 
OWNEXE, "EXECUTOR', 


VOu-000, seine ‘shared subexpressions) nso it coi 8h 3:28:35 ENCe Sat dNEBstaclR:o30+4 Page 15 


; 5 } ZSBTTL ‘Define shared subexpressions’ 

; 1! 

: } Define Subexpressions from Library 

; 670 - 

; 8 1 SEM_ALL ! ALL parameter 

; ore 1 SEM_LINE_ID ! Device name string 
; 67 0665 1 SEM_NODE ID ' Circuit owner id 

3 674 0664 1 SEM_DTE_RUMBER !' DTE call number 
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: } ZSBTTL ‘Object Listing of Parse Table‘ 
: 


4 aye ‘End of module 
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